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Well here again is our newsletter. This Bonth Be 
have included the second part of the unfrag 
prograuaBe frwi B^b van der Poel. We also have a 
Bubtission froiri one of our meBibers comparing the 
CoCo windowing systen with Microsoft's Windotus 
Version 3.0 

We have also included some snippets from the 
Internet CoCo 0S9 mailing list. 

Quotes of the tenth 

"It is virtually impossible to do any serious 
multitasking uith less than four megabytes of 
memory.' 

Bill Gates, CEO Microsoft 



is soiBething else to be worked on. 

The screen capabilities of the MM/l mill look 
fine. The x420 mode is interlaced, meaning you 
probably won't use it for text due to normal NTBC 
flicker (may not trouble us here in Australia), 
but it'll look great for pictures. The 720" modes 
simply overscan past the edges of the screen, 
which is intentional... although the monitor 
probably can be adjusted inward if wished. 

All the screens on the MM/1 look fine on a CM-B 
monitor, so the Commodore 1084S should look fine 
also. Some of the higher res. graphics screens 
flicker somewhat on the CM-S, but I'm told look 
better on the Commodore types. 



Writing programiiies in Biachine code is like digging 
post holes with a teaspoon, slom and painstaking, 
but you have complete control over all of the 
dirt. 



List of Seagate SCSI Hard Drive prices versus 
price, with KI.ytes/buck iin US dollars) already 
calculated. It's clear that as you go up in size 
you get more for your money, up to 84 MB anyway. 



News Briefs 

You can now use a serial mouse with CoCo 0=9. 
Patches to CC3I0 have been written by Bruce Isted 
in the US. We are trying to get hold of these 
patches for our PD Library 

The MM/1 windowing system is very much like stock 
L-II. By the way, the windowing is running on a 
Atari ST also... with others to follow. (Running 
the same binaries on both the MM/1 and the Atari I 
Neat, eh?) Each machine has different capabilities 
and resolutions. The windowing should be flexible 
enough to handle all those without being the 
burden to programmers that most such windowing 
systems are. 



MBytes 


Price 


KB/$ 




20 


259 


77 


not good value 


30 


279 


107 


RLL, steer clear 


48 


319 


150 


ST-157N, good value 


64 


349 


183 


RLL? 


84 


379 




Best Buy 


142 


739 


192 


past the peak 



All Seagate Hard drives with an N suffix have 
onboard controllers, and should simply plug 
straight into the SCSI interface on the MM/1. 

Look for the name Realtime Multi Media as the 
Australian Agents for the MM/1. We are told maybe 
September or October 1 ! 



All it is so far is exactly the same as Multi-Vue, 
with EDUie added functionality. At this writing, 
the GUI works just like the CoCo's fiulti-Vue. In 
fact, you can run your CoCo as a terminal off the 
MFI/1 using graphics generated on one then 
displayed on the other. Mousing across machines 



Maybe some of this material whets your appetite? 
We are always on the lookout for material for the 
newsletter. Maybe you can help? Until next time - 

Cheers Gordon. 
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FcHir Drives! 
by Bob Devries. 



Can you believe it? I have nou fmir dmible 
si(fed floppy drives connected to ny CoCo3! How can 
that bei 1 hear you say.... There are not four 
drive select linesi only three and the side select 
line. Well, that is true, and 1 had to (ki a bit of 
harduiare hacking (ny iiain source of enjoysent uith 
the CoCo. After C prograiMiing of course!). Uell, 
I'll tell you about hcnn 1 did the nods. Let me 
first say that if you decide to try it for 
yourself, you're on your otun! I will not be 
responsible for any danage. 

OK, nou the disk controller I have is a CRC- 
Disto Super controller II (with 4-in-l fitted, but 



that's by-the-nay). Now I wuld iugine that the 
Rods should be able to be done to any disk 
controller, as long as ther is rooB to physically 
fit the extra chip needed. Besides that I have a 
standard 5 1/4 drive case uith 2 BB track DS 
drives in it. 

To nake provision for connecting the extra 
drives (2 72tSK 3 1/2 floppies), I nade an external 
drive connector on the back of the drive. I used a 
23 pin DB connector and wired it along the lines 
of the Akiga A5IJ0 external drive connector. Here 
is the pinout I used. 



DB23 pins 


Standard 


pins 


1. Ready (not used on COCO) 




(34) 


2. Read Data 




(30) 


3-7 Ground 


(all odd pins) 


8. Motor on 




(16) 


9, Drive select 2 




(14) 


IB. Disk reset (not used on COCO) 






11. Disk change (not used on COCO) 






12. +5 Volt supply 






13. Side select 




(32) 


14. Write protect 




(28) 


15. Track m 




(26) 


16. Write Gate 




(24) 


17. Write Data 




(22) 


18. Step 




(28) 


19. Direction 




(18) 


2fl. Drive select 3 (not currently connected - 


read on) 


(6) 


21. Drive select 1 (already used for 5 1/4 dr 


ives) 


(12) 


22. Index 




(8) 


23. +12 Volt supply 







OK 50 here's hou I modified the controller. 
Ssiith store uill supply that, as uell as three 10k < 



Firstly, you'll need a 74LS138 chip. Your local 
ihffi 1/4 matt or 1/8 natt resistors. 



Dick 



Here's the circuit: 



from controller drive sel B 
I > III 



connect to ground 
connect to ground 
connect to +5 volt 
not connected 
connect to ground volt 



The three resistors must be connected 
to +5 volt, and the other ends to pins 1, 2 and 3 



1 


U 


!16 


connect to +5 volt 


4. 




!15 


connect to drive sel 3 (pin 6) 


3 




114 


not connected 


4 




!13 


connect to drive sel 1 (pin 12) 


5 




112 


not connected 


6 




111 


connect to drive sel 2 (pin 14) 


7 




!1B 


not connected 


8 




19 


connect to drive sel (pin 10) 


tei 


J one end 


respectively. 
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This little circuit nay be connected either in 
your disk drive case, or in the controller itself, 
uhere-ever there is sufficient space. I mounted 
mine inside the controller, placing the chip 
piggy-backed on top of another chip of siailar 
size, with all the pins except pins 16, and 8 bent 
out sidemays. I soldered these two pins to the 
chip underneath, making sure of two things! (1) 
that the chip underneath luas another 74LSXXX chip 
or 74XX chip (e.g. 7416), and (2), that the piggy- 
backed chip mas the same way 'round. Well, OK, I 
also checked that I did not blob the solder all 
over the other chips, but that's normal for any 
electronics practices. 

To make the connection to the circuit, I cut 
the tracks just before the connection tc the 34 
way edge connector where the drive cable plugs in. 
Only three need to be cut, pins 10, 12, and 14. 
There should be no connection to pin 6, and the 
wire frraii pin 15 of the 74LS138 chip may be 
connected here. By the way, 1 used 28 guage 
'Kynar' wire wrap wire, but any fairly thin gauge 
wire would do. 



d3_35s.dd. Here is a dump of my descriptors to 
show you what they look like: 

This is the one for /D2 

01234567 0246 
ADDR 89ABCDEF 8ACE 
== +-+-+-+-+-+-+-+- + + + + 
0000 87CD00300021F181 .M.B. Iq. 
0008 D400230026FF07FF T.#.fe... 

0010 400F010203200300 3 

0018 5002000012001203 P 

0020 0844B25242C64343 .D2RBFCC 
0026 33446973EB834376 3Disk.Cv 
htere's the one for /D3 

01234567 0246 
ADDR 69ABCDEF 8ACE 

=== +-+-+-+-■!■-+-+-+- + + + + 

0000 87CD0B300B21F181 .H.C. !q. 
0308 D40e230e26FF07FF T. #.&... 

0010 400F0103B3200300 a 

0018 5002030012001283 P 

0020 0844B35242C64343 .D3RBFCC 



(K, so now how do you use these drives. 
Firstly let m say that DISK BASIC (shudder) 
cannot use the extra two drives, and will work 
normally without modification. 0S9 needs to have a 
module patched. The module is CC3Disk. 1 strongly 
suggest that you use 'DED' to do the modification. 
Find the character combination that goes like this 
(in HEX) 01020440. This is the drive select table 
bit pattern. Change the byte 40 to 07. Don't 
forget to write the new module to disk, and verify 
to correct the CRC. You can do this from within 
DED. Please read the DED docs FIRST, and do it on 
a BACKUP of your normal systeiri disk. Next, you'll 
need to add two neui device descriptors /D2 and /D3 
to your 0S9Boot file. You will of cmirse do this 
in the normal way (whatever that is). The /D3 
descriptor you'll have to create yourself, or 
modify the one on the Eoot/config disk named 



Don't forget... I am using the CRC-Disto Super 
controller II in NO-Halt mode. The descriptors may 
be different from yours! CHECK THIS FIRST. 

As I said earlier, I am using the four drive 
system for two extra 3 1/2 drives (720K ones) so 
that I can now read just about all format drives. 
I use SDisk3 for reading other format disks such 
as Atari OSK disks, and IBM PC/XT disks in both 5 
1/4 and 3 1/2 format (using the PD PCDos 
programme). I wish there was some way of reading 
Amiga A500 disks... anyone knoui how? 

Have fun hacking 

Regards, 

Bob Devries. 



ooDoooooooOOOOOOOOOOoooooooooo 



CoCo-Link 



CoCcrLink is an excellent magazine to help you with the RSDOS side of the Colour Computer, 
monthly magazine published by Mr. Robbie Dahell. Send your subscriptions to: 



It IE 



bi- 



CoCo-Link 

31 Nedlards CrescEnt 

Pt. NoariuTiga Sth. 

South Australia 

Phone: (88) ^61647 
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The follcwing article uas subeitted by a User Group neftber who has experience uith the HS-DOS operating 
system. He tirote the follouing article to supply inforkation to a PC users group. You will notice that 
it was feiritten fros the viewpoint of an MSDOS user. Editorial changes and additions appear surrounded by 
square brackets [...]. 



All criticisms should be redirected to /Nil. 



COCO WindDkE VS UindoMS 3.e 

by George McLintock 



As a hobby type prograisiiier I often take an 
interest in current fads and recently got a copy 
of [HS-DOS (c)] Windows 3 for a look at. I aas 
rather disappointed with the results 

The package itself (for around $175 locally) 
provides no access to any of its features that you 
can use in your okin creations. [Yesi you can ... 
see the next sentence]. To do a simple thing like 
positioning a system window on the screen frmi 
uithin your own progran, you will need to spend 
another 780 odd dollars to get a software 
developers kit as well. This is not hobby type 
money so I can't CMment on what you might get if 
you buy that as well. 

I have a much older nulti tasking/multi windows 
type operating system that runs on my old computer 
(0S9 on a Tandy Color computer) which predates 
OS/2 by at least 10 years) and so^ie coirrparasion 
between it and the 'new generation' windows might 
be of interest. 

A simple direct comparasion of the CPU/software 
overheads associated with multi tasking on the two 
systems is as follows. The reduction from the 
native mode value is a measure of these overheads, 

Winik)W5(38A) 0S9(CoCo) 



100 



18.77 



Native Mode (DOS on 386) 

Multi tasking/uindfws 

Single task 
Two tasks 
Three tasks 
Four tasks 
Five tasks 
Six tasks 



These relative weights were obtained frra a simple 
compiled Basic program on each machine that counts 
the number of times a common loop is executed per 
minute of actual elapsed time. (CPU fully 
occupied). The same program was then run as 
multiple tasks to produce a separate count for 



33 


18.77 


29 


18.69 


30 


18.58 


32 


18.40 


33 


18.27 


33 


18.10 



each task which were then added to obtain a total 
count for the specified number of tasks. The 
reduction in total count for multiple tasks is a 
measure of the cpu/software overheads of multi 
tasking. I am aware of the problems with this sort 
of coTiparasioni and will ignore all criticisms of 
the metholodogy 

Windows 3 incurs an enormous penalty for the first 
task in a multi tasking environment, but after 
that it gives soirie erratic results. (5 tasks give 
the same count as 1, which is significantly higher 
than 2 or 3 tasks). I have no idea why. 0S9 does 
its multi tasking with standard time slicing and 
the results are as you might expect. Native mode 
with 0S9 is a single task) single window 
environment anyway. The original CoCo mode has 
interpreted Easic only. 

ScNiie knowledge of the two systems involved will 
siake the comparasion even more interesting. The 
windows values were obtained from a standard type 
386 SX (16 mi clock, landmark around 21 hHz) with 
8 Megs of memory. Multiple tasks were run as DOS 
programs in their own window, started from the 
keyboard, with the total count per minute derived 
frcm whole minutes with no keyboard or mouse 
activity. Rather painful but can be done. I 
apologise to those unfamiliar with the general 
background of the 386 system. 

The original Tandy Color Computer (CoCo) is older 
than the original IBM PC (by at least a year). The 
model used here (CoCo 3) was released in 1986. It 
uses a 1.66 fHi 6809 CPU. (and yes there is a 
decimal point between the 1 and the 6. The 
original CoCo is 0.83 MHz). The 6809 is from 
Motorola, has an 8 bit data path, 16 bit internal 
registers [Intel's 8088 CPU has a similar system] 
and 16 address lines. It uses a separate memory 
management unit to address up to 512K [now 1 Mb] 
in 8K blocks of actual memory, with a maximum of 
64K mapped in at any one time. (1 meg upgrade kits 
from third party suppliers). For comparasion, the 
same program under DOS on a 4.7 MH; 8088 produces 
a relative count of 13.2. 
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I would have liked to try some other cosiparasions 
as weli, but my other CoCo equipment is a bit old 
to do anything meaningful, eg the disk drives mere 
made in 1981, and are single sided with a 30 itis 
track to track stepping rate. Rather slow, but I 
got thefi second hand and they satisfy By 
requirements. They also demonstrate that Tandy is 
just as good at maintaining backiuards 
compatability as IBM ever mas. Some forni of 
comparasion with multi tasking graphics is 
probably feasible (the CoCo has EGA type 
graphics), but without programming access to the 
windoiDs operating system I haven't been able to 
think of one. 

0S9 is a real-time Emulti-user] multitasking 
operating system written for the Motorola 68XXEX3 
family of processors, and more lately available 
for 8B3S6 Intel processors as well. Multitasking 
is standard, all compilers produce re-entrant 
code, modules are linked at run time, all I/O is 
through standard interfaces by means of device 
drivers, all graphics modes are supported etc. It 
provides very efficient use of memory and 512K is 
a reasonably large system. Only e single copy of a 
module is required in memory for the use of 
multiple processes. Coding by 0S9 prograrnmers is 
in general much tighter than that of other 
systems. For example, the EasicB9 runtime 
interpreter is only 12K. Compared with 78K'? for 
GWP.asic. Each source module can be compiled 
separately. If it calls another module at run time 
the system luill automatically link to that other 
module as required. If the other module is not m 
memory, it is automatically loaded so that the 
link can be established. A single module can be 
used by any number of other modules at the same 
time. The link is established simply by calling 
the routine. 

As another trivial and simplistic comparasion, the 
Quick Basic runB module is appro;-; 77. 5K and the 
count program compiles to appro;; 6.7K. Apart froiri 
its other overheads, Windous 3 loads a total of 
84K (77.5 + 6.7) of program code for each task. 
The 059 equivalents are 12K for the runB module 
and 4ie bytes (no K's) for the count program. 0S9 
loads i2K + A10 bytes for the first task and then 
adds an e;;tr£ 64 bytes in the system page for each 
additional rime the task is run, 

0S9 Level 1 (with a c4K memory limit) was released 
for the CoCg in 1983, Level 2 (any amount of 
memory) was released with the CoCo 3 m 1986. 
Around 1987 Tandy released a standard GUI 
(graphics user interface) called Multiview for 059 
which appears very similar tc Windows. For a non- 



technical user they would appear to be much the 
same. Software packages come with the equivalent 
of a Window's .PIF file which will automatically 
set them up to run under Multiview. You drive the 
system with a mouse, joystick (emulating a mouse) 
or keyboard. Icons etc follow the same general 
style as windows. 

0S9 windows are proper systes type windou's with 
the basic unit being device windows that can be 
te);t or graphics. You can have any number of these 
[within limits], of any size, located anywhere on 
the physical screen, as well as a number of 
different physical screens accessible by a screen 
change 'hotkey'. They are standard 0S9 devices and 
a program can direct its output to any device open 
to it. Output can be automatically scaled to match 
the actual window size. Device windows cannot 
overlap each other on the physical screen and all 
must be the same type (te;;t or graphics) at any 
particular time. Graphic device windows can be any 
resolution and can be mi>;ed, within the limits of 
the physical display hardware, eg a program using 
a 4 color screen can have a device window on the 
same physical screen as a program using a 16 color 
device window, within the limits of no physical 
overlap etc. The physical screen is of course set 
to 16 color mode in these circumstances, with some 
practical limitations on sequences etc. 

Overlay windows sit on top of device windows and 
can be located anywhere within it. The normal 
procedure is to start a process in a device window 
which belongs to it. Different modules within that 
process can then use overlay windows to locate 
their output anywhere within it. However, programs 
can send their output to different device windows 
and run overlay windows in them. Assuming the 
owner of that other device window (if it has one) 
allows it. A process owns a device window if it is 
running under a separate shell within it, 
otherwise it is open to all coBiers, The system 
provides a standard set of clipboard type buffers 
to allow for the transfer of data between 
processes. These can be used without any direct 
linking between processors at run time. 

These general concepts don't seem to apply too 
well to Windows 3. In one way it seems to operate 
as a single full screen device window with each 
task having its own full screen overlay. A better 
alternative might be to consider it as allowing 
device windows to overlap each other, with each 
task having its own full screen device window 
overlaying the one beloni it. This might at least 
make some sense for the requirement tc re-install 
the whole system to change the graphic display 
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mode. I expect it would be logically very 
difficult to overlay graphic device uindous with 
different resolutions. 

Windows 3 does alloiu you to change the size and 
location of the iDindow for a task by using the 
mouse to drag the edges. Hontever, when you do this 
you are not actually changing the uindont itself, 
position 0,0 reaains in the top left corner of the 
physical screen so it is not even a true overlay 
winctow either. All you appear to be ctoing is to 
change a Basic type view of the actual uindou 
which continues to occupy the full physical 
screen. 

Apart froiTi its age and CPU performance, the big 
difference between these systems is price. The 
CoCo mas discontinued outside the USA a couple of 
years ago, but is still available in that country. 
Sane prices ($US) from a Nov 1990 magazine are : 
0S9 Operating system, including Basic conipiler and 
good manuals - $72. Multivieu, Windoos 3 type 
standard 6UI - $45. 0S9 Development system, 
includes Assembler, programming tool box etc - 
$90. Common packages like word processors, data 
bases, spreadsheets etc have a similar sort of 
price relativies to their WS equivalent. A two 
floppy, half meg ffiemory system with color monitor 
(Amiga analogue style) - $520. Hard drives break 
the pattern, a 40 Meg hard drive - $580. 

The CoCo under 0S9 provides very good performance 
for its age and price, but it is largely unknown 
outside its own circle of users. 0S9 does have a 
big brother, called OS9/68000 which runs on 
Motorola 68000 series CPU's. I have no idea where 
it fits in any hierarchy of Unix systems for that 
chip. There are versions available for the Atari 
ST and Amiga low end machines. Its performance is 
highly regarded by e>; 0S9 users on CoCos. 

A couple of interesting neai machines uiere released 
in the USA late last year (1990) which have taken 
different approaches to an upgrade path for 
esisting CoCo users. The installed CoCo base is 
around 3-4 million, so even if you haven't heard 
of it, and Tandy have ignored it, it is not 
completely insignificant for smaller companies in 
the coniputer world. Both these machines are based 
on the 15 MHz 68070 chip (Signetics) using the 
OS9/68000 operating system. I haven't seen any 
performance figures for either machine, but they 
should be impressive. 

The cheaper of these machines makes a ccwiplete 
break with the CoCo but offers source level 
compatability with 0S9 software and similar 



operating systems. For $360 (US) you get a base 
system that includes a 15 MHz 68070, 1 Meg memory, 
a single 1.4 Meg floppy, 720 x 540 >; 256 graphics 
(with separate graphics co processor), OS9/68000 
operating system in EPROM (or boot froai disk), 
Basic and C compilers plus a set of standard 
software packages and utilities, including 
read/write MS-DOS disks. You have to add a 
standard type analogue monitor (Amiga type 
frequency). You also need another board ($350) to 
expand with more memory and hard drive (SCSI) etc. 
But still very competitively priced for the 
performance. The basic unit includes a network 
controller to attach up to 120 other units at 100K 
bauds and is obviously aimed at the school small 
business market as well. The CoCo still has a 
reasonable presence in these areas in the USA. 

The second, and more expensive base machine 
provides full backwards compatability with the 
existing CoCo line (hardware and software). It 
does this with a 2 CPU system. With a 6809 only it 
operates as a CoCo and uses all existing hardware 
and software. (Basic system price around $500 US). 
As a two CPU system it adds a 68070 board running 
OS9/68000 with the 6809 used as a separate 
I/O/graphics co processor. Basic system price is 
around $1400 US including 1.5 Meg meffiory and other 
features, software etc as per the other 68070 
system. This one is upgradeable withc^ut any extra 
boards, to 16 Meg memory, SCSI hard drive and you 
retain the option of still using it as a stand 
alone 6809 system. The two CPU upgrade path has 
been tried before without success, but who knows. 
Anyone remember the Tandy Model 16, a Z80 for CPM 
and a 68800 for Unix. This new one at least has 
much the same operating system on both chips. 

Needless to say the ads for both these systems are 
not too specific on details and I haven't yet seen 
any reviews of them. It is a fact of life that you 
are unlikely to see any mention of them outside 
the specialist 0S9/CoCo magazines either. 
According to rumour, at least one of these 
machines will be available in Australia later this 
year froffi one of the remaining CoCo third party 
suppliers here, so you may hear about it again. 
There are still a few CoCo/0S9 fans around who 
would be interested. 

In any case it is good to know that there are 
still some companies around who can offer 
reasonably priced high performance software and 
hardware. The pricing structure (and other 
aspects) of Windows 3 (and OS/2) reflect all the 
worst features of a monopoly (cartel) supplier, 
and I would like to see something like OS9/68000 
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be at least successful enough on a reasonably 
priced aachine to saybe do for operating systems 
what Borland's Turbo series did for compilers. 
Unix is frequently Bentioned as a competitor for 
Windoiii5/0S2, but the major potential suppliers of 
Unix for Intel machines appear to be no better 
with either pricing or hardware requirements, I 



certainly wish these other suppliers every success 
and assuming realistic Australian pricing (ie no 
Microsoft style inflation factor in the exchange 
rate conversions) will probably do my bit to 
support one of them. 



DoooooooooOOWOOOOOCiDooooooocio 

Easicfl? Parameters 
By Bob Devries 



Did you know that there are two ways to 
pass parameters to a basic09 procedure? Yep, here 
they are:- 

1. By lEFERENtt 

2. By VALlff 

The first is the normal, default method, 
but the second way can be used easily, too. 
Consider the folloming example, a little procedure 
to change a string variable to uppercase. 

(* toupper - change case of string 'line' *) 

PARAM line:STRING 

DIM x,y: INTEGER 

DIM upIine:STRING 

DIM charistringEl] 

upline=" 

FOR x=l TO LEN(line) 

char=ttID$(line,x,l) 

IF char>=' ■ AND char<="Z" OR char>'i' THEN 
upline=upline+char 

ELSE 
upline=upline+CHR$(ASC(char)-32) 

ENDIF 
tCXT X 
line=upline 
END 



been changed to uppercase characters. If, however, 
you called the procedure like this: 

fox='the quick brown fox' 
RUN toupper (fox+"") 
PRINT fox 

You would see that there was no change to 
the variable 'fox'. This is because adding the +'" 
to the line, makes it an expression, and this 
forces BasicB? to calculate the value (even with 
string variables) and pass the value to the 
procedure. 

You might say, 'what is the use of doing 
that?'. Well, I'll tell you. There might be a 
programme in which you wish to be able to change 
the contents of a passed variable without 
affecting the calling procedure's variable, 
without having to set up a temporary variable in 
the first procedure, which would take up extra 
memory. 

The same rules apply to all the other 
variable types, too. For instance, here's soine 
iriore examples."- 

RUN hammer (nail +5) (« here nail is INTEGER «) 



ftow, if you wanted to use this procedure 
as part of your programme, you would normally do 
this:- 



RfJN a5k(price+1.5) (« here price is REAL «) 
RUN hex ( LAND ( nun, $0F)) (« here num is BYTE *) 



fox='the quick brown fox' 
RUN toupper (fox) 
PRINT fox 

You would see that the variable 'fox' has 



So you can see, that there some useful 
ways to use BasicB? parameters besides the 
'normal' way. Think about it. 

Regards, 
Bob Devries. 



oooooooooo(KK)OOOCK)OOdooooooooo 

File De-fragirientator 

by Bob van der Poei 

comments by Bob Devries 

Part Two 
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Here is part two of Bob van der Poel's programine for rearranging your disk files into contiguous 
sectors. Our thanks go to Bob for supplying this free of charge and in the Public Domain. As I mentioned 
last isonth, you will need the Kreider C Library to compile this gem, and, as usual both that and this 
programme are available from our PD Library for the usual copying fee. Please note that requests for PD 
software now go to Jean-Pierre Jacquet at the address on the front of the newsletter. 

Make sure you append this part to the end of part one before you try to compile it. 

Regards, 



/«==== 



Main workhorse. This routine reads the directories and checks 
the status of all the files. Any fragmented files will be 
copied and renamed. If any directories and the "do subdirs flag' 
is set this routine mill be recursively called. 

process(dir) 
char *dir; 
I 

char «dirnairies,«ne>;t; /* ptrs to malloc filena^ies */ 

int numnames,nsegs; /» working vars »/ 

register int t; 

int ipath; /* os9 file pathnumbers */ 

char tempstr[2B]; 

struct fildes fdbuf; /* struct for FD sector */ 

if ((chdir(dir))i=NULL) quitCUnable to access directory'); 

dirnames=ne>it=getdir(inufflnames); /* read directory */ 

for(,'numna(ries,'ne>;t+=30,nufflnaffles— )( /* process each filename »/ 
fput5(next,5tdout); 
space(40-5trlen(ne>(t) ); 

if (( ipath=open(next, 1 ) )>0) 1 
totalfls++; 

_gs_gfd( ipath, &fdbuf, 256); /♦ read RBF file descriptor */ 
n5egs=count5egs(&fdbuf ); 
if (nsegs<2)( 

fputs('Okay\n',stdout); 

close( ipath); 

else! 

totalfg++; 

if (report)! /* don't fi>; things, just report »/ 

fputs( 'Fragmented: ",stdout); 

i toa ( nsegs, tempstr ) ; 

putsftempstr); 

clDse( ipath); 

> 

else! /* copy/delete/rename file ♦/ 

fputsCProcessing: "tstdout); 

copy ( i pat h , &f dbuf , next ) ; 

) 
1 



Bob Devries. 
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) 

el5e( /* if unable to open file then try to access 

as a directory and process the next level. »/ 

if((chdir(next))==NULL)( 

fputsf "Directory . . . " , stdout ) ; 
if (dodirsX 

put5( 'processing next level"); 

processC,"); /* do the next level down */ 
} 

else putsCnot processed'); 
chdir('..")i /* backup to the parent */ 
if (dodirs)( 

space(40); 

putsCsubdirectory complete"); 
} 
) 

else! /* not a directory... skip it then »/ 

putsCCan't openi skipped"); 
}^ 
} 
} 

free(dirnames); /» return meiriory for directory list #/ 
) 

/♦ ========================================= 

Copy a fragmented file in the hope that pre-extension mill fix things. 
«/ 

copy(ipath,oldfd, filename) 

int ipath; /* already open original file path */ 

struct fildes *oldfd; /« file descriptor structure */ 

char *filenaffle; /* naise of file being copied ♦/ 

I 

int opath,nsegs; 

register int t; 

struct fildes neufd; 

char teffiP5tr[I003; 

/* create new file, abort if ute can't */ 

if ((opath=ocreat(teiiipfile,_WRITE,oldfd->fd_att) )==-!) 
quit ('Unable to create temporary file'); 

/# pre-extend file size, abort if no room */ 

if ((_55_5ize(opath,oldfd->fd_f size) )==-!) 

quit ("Not enough room for copy on disk'); 

iDhile((t=read( ipath, copybuf,BUFSI2E))>0)( 

if (write(opath,copybuf,t)l=t) 
quit( "Write error during copy'); 
} 
if (t) /* copy complete, if t!=0 there is a read error */ 

quitCRead error during copy'); 
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/« check neu fragmenation.. ♦/ 

_g5_gfd(opath,&neuifd,256); /♦ read REF file descriptor ♦/ 

nsegB^countsegsl&neuf d) ; 

iffnsegs)!) putsCStill fragmented!"); 

else! 

putsCokay"); 

totalfi>;++; 
) 
close! ipath); 

/« delete oldfile ♦/ 
if (unlinkf filename) )( 

contCUnable to delete original file'); 

goto copyx; 
} 

/« rename the newfile ♦/ 
strcpyfteffipstr, 'rename '}; 
strcat ( tempstr 1 tempf i le) ; 
strcatftempstr,' '); 
strcat ( tempstr , f i lename) ; 
iffsystemftempstr))! 

contCUnable to rename new file'); 

goto copyx; 
} 

_55_pfd(opath,oldfd); /« set dates to match old */ 
copyx: 

closefopath); 
) 



Display message and ask if okay to continue. Terminate if answer is not <Y) 
*/ 

cont(m5g) 
char fmsg; 
( 

register int c; 

fput5("\n\n "istdout); 

putsfmsg); 

fputsC Okay to continue (y/n): ',stdout); 

c=getchar(); 

if(toupper(c)l='Y') quitC); 
PutsC); 
} 



/ 1 ==================;:==:::;===================== 

Create a list of all the entries in the current directory. 

This uses memory allocated via mallocO. The pointer returned points to the first entry; CDunt==number of 

valid entries (not including . and ..). 

*/ 

get dir( count) 
int «count; 
( 

DIR «dirp; 
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register char *nbuf ,*ne>;t; 
long _g5_5ize(),dir5ize; 

if ((dirp=opendir('.'))==fAJLL) quitCUnable to open directory"); 
dir5ize=((_g5_5ize(dirp->dd_fd)/32)-2)»3a; 
if((nbuf=i»alloc((int)dir5ize))===NULL) quitCOut of ffiemory"); 
for (♦count=0,ne>it=nbuf ientry=readdir(dirp) i ) ( 
if (i5alpha(entry->d_naiiie[0]))( 

strcpy ( nex t I entry->d_name ) ; 

«count+=li 

next+=30i 
> 
) 

closedirfdirp); 
return nbuf; 



Universial terminate routine. Prints error ncssage and quits. 
*/ 

quitfs) 

*s; 

I 

fput5('\n',5tderr); 
fput5(5,5tderr); 
fput5('\n",5tderr); 
fputsCUNFRAfi terntinated\n",5tderr); 
e>;it(errno); 
) 

Output 1 to n spaces 
*/ 

space(n) 
int n; 
( 

do( 

fputsC "istdout); 

>u)hile(— n>0); 
} 



/♦ 



count the number of segments in the current file the file descriptor buffer must have been read and 
stored at fdbuf. 
*i 

countseg5( fdbuf ) 
struct fildes ♦fdbuf; 
( 

register int t; 

int nsegs; 

fDr(n5eg5=t=0;fdbuf->fdseg[t].size;nsegs++,t++); 

return nsegs; 
j 

DOOOODODOOCK)C«)OOOOOOODDDOOOOOO 
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